home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vol7n10.arc / TOGGLE.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-05-31  |  3.7 KB  |  64 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE toggle.COM
  2. 110 OPEN "toggle.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  43 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 28071 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,   188,     0,    84,    79,    71,    71,    76,   802
  22. 300 DATA     69,    32,    49,    46,    48,    32,    40,    99,   415
  23. 310 DATA     41,    32,    49,    57,    56,    56,    32,    90,   413
  24. 320 DATA    105,   102,   102,    32,    67,   111,   109,   109,   737
  25. 330 DATA    117,   110,   105,    99,    97,   116,   105,   111,   860
  26. 340 DATA    110,   115,    32,    67,   111,    46,    13,    10,   504
  27. 350 DATA     80,    67,    32,    77,    97,   103,    97,   122,   675
  28. 360 DATA    105,   110,   101,    32,   254,    32,    74,   101,   809
  29. 370 DATA    102,   102,    32,    80,   114,   111,   115,   105,   761
  30. 380 DATA    115,   101,    13,    10,    36,    26,    13,    10,   324
  31. 390 DATA     85,   115,    97,   103,   101,    58,    32,    32,   623
  32. 400 DATA     84,    79,    71,    71,    76,    69,    32,    91,   573
  33. 410 DATA     43,    99,   124,    45,    99,    93,    32,    91,   626
  34. 420 DATA     43,   110,   124,    45,   110,    93,    32,    91,   648
  35. 430 DATA     43,   115,   124,    45,   115,    93,    13,    10,   558
  36. 440 DATA     36,    13,    10,    32,    32,    32,    32,    67,   254
  37. 450 DATA     97,   112,   115,    76,   111,    99,   107,    32,   749
  38. 460 DATA     32,    32,    58,    32,    32,    36,    32,    32,   286
  39. 470 DATA     32,    32,    78,   117,   109,    76,   111,    99,   654
  40. 480 DATA    107,    32,    32,    32,    32,    58,    32,    32,   357
  41. 490 DATA     36,    32,    32,    32,    32,    83,    99,   114,   460
  42. 500 DATA    111,   108,   108,    76,   111,    99,   107,    32,   752
  43. 510 DATA     58,    32,    32,    36,    79,   110,    13,    10,   370
  44. 520 DATA     36,    79,   102,   102,    13,    10,    36,   184,   562
  45. 530 DATA     64,     0,   142,   192,   252,   190,   129,     0,   969
  46. 540 DATA    172,    60,    32,   116,   251,    60,    13,   116,   820
  47. 550 DATA     63,    60,    43,   116,    16,    60,    45,   116,   519
  48. 560 DATA     12,   180,     9,   186,    78,     1,   205,    33,   704
  49. 570 DATA    184,     1,    76,   205,    33,   172,    36,   223,   930
  50. 580 DATA    180,    16,    60,    83,   116,    12,   180,    32,   679
  51. 590 DATA     60,    78,   116,     6,   180,    64,    60,    67,   631
  52. 600 DATA    117,   223,   128,   124,   254,    43,   117,     7,  1013
  53. 610 DATA     38,     8,    38,    23,     0,   235,   193,   246,   781
  54. 620 DATA    212,    38,    32,    38,    23,     0,   235,   184,   762
  55. 630 DATA    180,     9,   186,     3,     1,   205,    33,   180,   797
  56. 640 DATA      9,   186,   121,     1,   205,    33,   180,    64,   799
  57. 650 DATA    232,    29,     0,   180,     9,   186,   142,     1,   779
  58. 660 DATA    205,    33,   180,    32,   232,    17,     0,   180,   879
  59. 670 DATA      9,   186,   161,     1,   205,    33,   180,    16,   791
  60. 680 DATA    232,     5,     0,   184,     0,    76,   205,    33,   735
  61. 690 DATA    186,   185,     1,    38,   132,    38,    23,     0,   603
  62. 700 DATA    116,     3,   186,   180,     1,   180,     9,   205,   880
  63. 710 DATA     33,   195,     0,     0,     0,     0,     0,     0,   228
  64.